home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / flilib.zip / FLISRC.ZIP / JSETCOLO.ASM < prev    next >
Assembly Source File  |  1989-11-10  |  570b  |  54 lines
  1.  
  2.  
  3. _TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  4.     ASSUME  CS: _TEXT 
  5.  
  6.     ;set the old color map
  7.     public _aa_set_colors
  8. _aa_set_colors proc far
  9.     ;aa_set_colors(0, 256, vga_cmap);
  10.     push bp
  11.     mov bp,sp
  12.     push cx
  13.     push bx
  14.     push ds
  15.     push si
  16.  
  17.     cld
  18.     mov    bx,[bp+4+2]
  19.     mov    cx,[bp+6+2]
  20.     lds    si,[bp+8+2]
  21.  
  22. st1:
  23.     mov    dx,3c8h
  24.     mov al,bl
  25.     out dx,al
  26.     inc bl
  27.     inc dx
  28.     jmp s1
  29. s1:
  30.     lodsb
  31.     out dx,al
  32.     jmp s2
  33. s2:
  34.     lodsb
  35.     out dx,al
  36.     jmp s3
  37. s3:
  38.     lodsb
  39.     out dx,al
  40.     loop st1
  41.  
  42.  
  43.     pop si
  44.     pop ds
  45.     pop bx
  46.     pop cx
  47.     pop bp
  48.     ret
  49. _aa_set_colors endp
  50.  
  51.  
  52. _TEXT    ENDS
  53. END
  54.